home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / text_utl / bigtext / txtform.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1996-01-01  |  6.2 KB  |  212 lines
  1. TxtForm
  2.     Big Text 
  3. MS Sans Serif
  4. wwwwwwwwww|
  5. wwwwwwwwww|
  6. wwwwwwwwww|
  7. wwwwwwwwww|
  8. wwwwwwwwww|
  9. wwwwwwwwww|
  10. wwwwwwwwww|
  11. wwwwwwwwww|
  12. wwwwwwwwww|
  13. wwwwwwwwww|
  14. wwwwwwwx
  15. wwwwwww
  16. wwwwwww
  17. Form25V
  18. CMDialog
  19. CommonDialog
  20. Choose a Text File
  21. Text Files (*.txt) | *.txt%
  22. LnScrl
  23. Text1
  24. Text1
  25. MS Sans Serif
  26. MmFile
  27. &File
  28. FileOpen
  29. &Open
  30. FileExit
  31. E&xit
  32. MmTxtSiz
  33. Text &Size
  34. TSsmall
  35. &Small
  36. TSmedium
  37. &Medium
  38. TSlarge
  39. &Large
  40. MmTxtBld
  41. Text &Bold
  42. TBfalse
  43. &False
  44. TBtrue
  45. &True
  46. @    Form_Load
  47. Text1_Changen
  48. Text1_KeyPress[
  49. KeyAscii
  50. MMOptions_Click
  51. Form_Activate
  52. PixFormd
  53. Height
  54. Width
  55. LeftV
  56. xForm
  57. TxForm
  58. TxtForm
  59. Form_QueryUnloadx
  60. Cancel
  61. UnloadMode
  62. ActTB_ClickU
  63. ActPV_Click
  64. ActAV_Click
  65. ActAvi=
  66. ActPix
  67. ActTool
  68. OptTsml_Click
  69. Text1
  70. FontSize
  71. Printer
  72. OptTmed_Click
  73. OptTlrg_Click
  74. OptPTxt_Click2
  75. PrntImg_ClickA
  76. PrntImg_MouseDown-
  77. ButtonK
  78. Shift
  79. PrntImg
  80. Visible
  81. PrntImg_MouseUp
  82. TxtSizImg_Click
  83. TxtSizImg_MouseDown
  84.     TxtSizImg
  85. TxtSizImg_MouseUp
  86. TxtSizeImg
  87. TextSize!
  88. LoadTxt-
  89. TxtUpImg_Click?
  90. TxtUpImg_MouseDownU
  91. TxtUpImga
  92. TxtUpImg_MouseUp
  93. LoadText&
  94. TxtDnImg_Click
  95. TxtDnImg_MouseDown
  96. TxtDnImg?
  97. TxtDnImg_MouseUp
  98. TextLine
  99. DisplayText
  100. WindowState
  101. Label1_ClickM
  102. PgScrl_Change
  103. LnScrlr
  104. LnScl7
  105. PgScl
  106. OTsml_Click
  107. OTmed_Click
  108. OTlrg_Click
  109. LnScrl_Change
  110. PgScrl
  111. FontName
  112. Value
  113. LnScrl_LostFocus
  114. LnScrl_Scroll
  115. LnScr
  116. ValueLnScrlx
  117. PgScrl_Scroll
  118. LargeChange
  119. Form_Resize8
  120. KEY_END
  121. KEY_HOME
  122. KEY_LEFT
  123. KEY_UPL
  124.     KEY_RIGHT
  125. KEY_DOWNd
  126. Text1_KeyDown
  127. KeyCode
  128.     KEY_PRIOR?
  129. KEY_NEXT
  130. dontknow
  131. dontknowKEY_NEXT
  132. GotFocus
  133. Text1_GotFocus
  134. Text1_MouseDown
  135. Caption
  136.     txtstring
  137. txtstr
  138. tstpz
  139. TSsmall_Click
  140. TSmedium_Click
  141. TSlarge_Click
  142. MmTxtSiz_Click
  143. MmTxtSiz
  144. Enabledh
  145. FileExit_Click
  146. FileOpen_Click
  147. CMDialog
  148. Action
  149. Filename
  150. txtstrt
  151. txtlimt
  152. txtstop
  153. txtstart
  154. txtlimit
  155. tstop
  156. TxtFo
  157. TBfalse_Click
  158. TBtrue_Click2
  159. TBtrue
  160. MmTxtBld
  161. FontBold
  162. TBfalse
  163. File Path & Name(shorter than using CMDialog.Filename)
  164. Text limit
  165. Text Start
  166. Array holding Text
  167. DisplayText
  168.  txtstart & txtlimit passed (Dim = modual level variable)e
  169. redundant (this is a local variable,always null at sub start) 
  170.  determine Text Stop
  171. stop short of limit at end of text/array
  172. create txt$ with appropriate lines
  173. from TextLine arrayt
  174. show correct text in Text1
  175. FileExit_Click
  176. FileOpen_Click
  177. activate 'open' Common Dialog Box 
  178. CMDialog returns  FileName
  179. if the user chooses cancel FileName = ""
  180. make sure FileName is not ""
  181. Enable Text Optionsi
  182. Form_Load
  183. initial settings
  184. LnScrl_Change
  185. LnScrl_Scroll
  186. LoadTxt
  187. Big Text  
  188. change Form Captiont
  189. clear Text1 Text
  190. redundant(local variable) 
  191. open Text File
  192. reset Line No. (counter)
  193. redundant(local variable)T
  194. Load TextLine array,each
  195. line of text is an element
  196. in the array. 
  197. lno%=element number 
  198. Chr(13)&(10)=Carriage Return
  199. (tells Text1 when to start
  200. a new line) 
  201. no sense in leaving it open 
  202. reset LnScrl Max
  203. reset LnScrl Value
  204. Call DisplayText Sub
  205. TBfalse_Click
  206. TBtrue_Click
  207. Text1_KeyDown
  208. Text1_MouseDown
  209. TSlarge_Click
  210. TSmedium_Click
  211. TSsmall_Click
  212.